10 GOTO460
15 :
20 REM **** ZEILEN LOESCHEN ****
25 :
30 FORI=4TO24:POKE781,I:SYS59903:NEXT:RETURN
35 :
40 REM **** TASTATURABFRAGE ****
45 :
50 GETA$:IFA$<>"W"THEN50
55 RETURN
60 :
65 REM **** CURSOR SETZEN ****
70 :
75 POKE783,0:POKE781,Z:POKE782,S:SYS65520:RETURN
80 :
85 REM **** SPRITES AN/AUS ****
90 :
95 POKE53269,PEEK(53269)OR1:RETURN:REM SPRITE 0 AN
100 :
105 POKE53269,PEEK(53269)AND254:RETURN:REM SPRITE 0 AUS
110 :
115 POKE53269,PEEK(53269)OR2:RETURN:REM SPRITE 1 AN
120 :
125 POKE53269,PEEK(53269)AND253:RETURN:REM SPRITE 1 AUS
130 :
135 REM **** BILDSCHIRM AN/AUS ****
140 :
145 POKE53265,PEEK(53265)AND239:RETURN:REM AUS
150 :
155 POKE53265,PEEK(53265)OR16:RETURN:REM AN
160 :
165 REM **** PEEK(2) = 0 ? ****
170 :
175 IFPEEK(2)=0THENRETURN
180 POKE2,0:FORI=0TO50:NEXT:GOTO175
185 :
190 REM **** DATAS EINLESEN ****
195 :
200 FORI=1TO8:READM$(I):NEXT:GOTO250
205 DATA"[196]ATEI LADEN     "
210 DATA"[196]ATEI SPEICHERN "
215 DATA"[196]ATEI UMBENENNEN"
220 DATA"[196]ATEI KOPIEREN  "
225 DATA"[196]ATEI LOESCHEN  "
230 DATA"[196]IRECTORY       "
235 DATA"[196]ISK-[194]EFEHL     "
240 DATA"[209]UIT            "
245 :
250 FORI=1TO3:READF$(I):NEXT:RETURN
255 DATA"[200]INTERGRUND"
260 DATA"[210]AHMEN     "
265 DATA"[212]EXT       "
270 :
275 REM **** FARBMENUE ****
280 :
285 PRINT"        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
290 PRINT"        [221]    [198]ARBEN WAEHLEN    [221]"
295 PRINT"        [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
300 PRINT"        [221][176][192][192][192][192][192][192][192][192][192][192][192][174]         [221]"
305 PRINT"        [221][221]"F$(1)"[221] [176][192][192][192][192][192][174] [221]"
310 PRINT"        [221][173][192][192][192][192][192][192][192][192][192][192][192][189] [221]  <  [221] [221]"
315 PRINT"        [221][176][192][192][192][192][192][192][192][192][192][192][192][174] [173][192][192][192][192][192][189] [221]"
320 PRINT"        [221][221]"F$(2)"[221] [176][192][192][192][192][192][174] [221]"
325 PRINT"        [221][173][192][192][192][192][192][192][192][192][192][192][192][189] [221]  >  [221] [221]"
330 PRINT"        [221][176][192][192][192][192][192][192][192][192][192][192][192][174] [173][192][192][192][192][192][189] [221]"
335 PRINT"        [221][221]"F$(3)"[221]         [221]"
340 PRINT"        [221][173][192][192][192][192][192][192][192][192][192][192][192][189]         [221]"
345 PRINT"        [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
350 :
355 REM **** SOUNDCHIP LOESCHEN ****
360 :
365 FORI=0TO24:POKE54272+I,0:NEXT:RETURN
370 REM **** SOUND ****
375 :
380 GOSUB365
385 POKE54277,5:POKE54278,7:POKE54274,2048AND255:POKE54275,89:POKE54272,136
390 POKE54273,19:POKE54294,50:POKE54295,0:POKE54296,15:RETURN
395 :
400 POKE54276,32OR1:FORB=1TO35:NEXT:POKE54276,32AND254:RETURN
405 :
410 REM **** EXPLOSION
415 :
420 GOSUB365
425 POKE54272,0:POKE54273,6:POKE54277,45:POKE54294,100:POKE54295,243
430 POKE54296,63:POKE54276,0:POKE54276,129
435 FORI=1TO90:POKE54272,I:NEXT
440 FORI=1TO1000:NEXT:RETURN
445 :
450 REM **** TITEL ****
455 :
460 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB145
465 POKE657,128:POKE56,140
470 POKE56576,(PEEK(56576)AND252)OR1
475 POKE53272,(PEEK(53272)AND15)OR48
480 POKE648,140
485 PRINT"[147]"CHR$(142)" [158]DAS POWERTOOL FUER BASIC-PROGRAMMIERER"
490 PRINT"             [153][169]  [146][169][165][153][169]  [146][169][165][153][169][146][169][169][146][169][165]"
495 PRINT"                [146] [165]   [146] [165] [146]  [146] [165]"
500 PRINT"              [164] [146] [165] [146]  [146] [165] [153][169] [146] [165]"
505 PRINT"             [153][169][146][169] [146] [165] [146]  [146] [165]   [146] [165]"
510 PRINT"              [153][169] [146] [165] [153][169] [146] [165][153][169]  [146] [165]"
515 PRINT"                [146][206]    [146][206]    [146][206]"
520 PRINT"       [154][169]  [146][169][165][154][169]  [146][169][165][154][169]  [146][169][165][154][169][146][169][165][154][169]  [146][169] [169]  [146][169][165]"
525 PRINT"          [146][206]    [146] [165]   [146] [165] [146] [165]   [146]     [146][206]"
530 PRINT"        [154][169] [146][169][165] [154][169] [146] [165] [154][169] [146] [165] [146] [165]  [146] [165]  [154][169][146][169][165]"
535 PRINT"          [146] [165]   [146][206]    [146][206]  [146] [165]  [146] [165]   [146][206]"
540 PRINT"       [154][169]  [146] [165] [146] [165]    [154][169][146][169][165] [146] [165]  [146] [165]  [154][169] [146][169][165]"
545 PRINT"          [146][206]  [146][206]    [146][206] [146][206]  [146][206]   [146][206]     [146][206]"
550 PRINT"               [151]WRITTEN BY"
555 PRINT"            [152]CARSTEN MANSHUSEN"
560 PRINT"     [155](C) COCOA BEACH ARTWORKS 1989":GOSUB155
565 IFL=1THENGOTO585
570 POKE147,0:SYS57812"JOYSPRITE",8,1:SYS62631
575 SYS57812"DEMO.SPRITES",8,1:SYS62631
580 GOSUB200:POKE53276,0:POKE53287,1:POKE36857,195
585 POKE36856,192:PRINT"               <D> = DEMO";
590 GETA$:IFA$<>"D"THEN590
595 GOSUB145
600 :
605 REM **** ANLEITUNG ****
610 :
615 PRINT"[147]"CHR$(14)"            [151][202][207][217][211][208][210][201][212][197] - [196][197][205][207]"
620 PRINT"            [152][202][207][217][211][208][210][201][212][197] - [196][197][205][207]"
625 PRINT"            [155][202][207][217][211][208][210][201][212][197] - [196][197][205][207]"
630 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
635 PRINT" [154][198]UER DIE MEISTEN [208]ROGRAMME IST DIE"
640 PRINT" [211]PRITESTEUERUNG IN [194]ASIC VIEL ZU LANG-"
645 PRINT" SAM UND IN VERNUENFTIGER [199]ESCHWINDIG-"
650 PRINT" KEIT NUR IN [193]SSEMBLER ZU REALISIEREN."
655 PRINT" [196]AS [212]OOL [202][207][217][211][208][210][201][212][197] HEBT DIESES [205]ANKO"
660 PRINT" AUF UND ERMOEGLICHT ES ENDLICH AUCH"
665 PRINT" DEM [194]ASIC-[208]ROGRAMMIERER, AUF DEM [195]64"
670 PRINT" PROFESSIONELLE [208]ROGRAMME ZU SCHREIBEN."
675 PRINT" [202][207][217][211][208][210][201][212][197] IST EINE KLEINE [193]SSEMBLER-"
680 PRINT" ROUTINE, DIE IM [201]NTERRUPT UEBER EINEN"
685 PRINT" DER BEIDEN [202]OYSTICKPORTS [211]PRITE 0 IN"
690 PRINT" BELIEBIGER [199]ESCHWINDIGKEIT UEBER DEN"
695 PRINT" [194]ILDSCHIRM BEWEGT. [196]AS [194]ASIC-[208]ROGRAMM"
700 PRINT" LAEUFT DABEI GANZ NORMAL WEITER."
705 PRINT" [202][207][217][211][208][210][201][212][197] WIRD MIT ',8,1' NACHGELADEN"
710 PRINT" UND BELEGT DEN [211]PEICHER AB $C000."
715 PRINT"              <[215]> = [215][197][201][212][197][210]";
720 GOSUB155:GOSUB50:GOSUB30
725 PRINT" [154][202][207][217][211][208][210][201][212][197] WIRD AUFGERUFEN DURCH"
730 PRINT" [211][217][211] 49152, [202]OYSTICKPORT (1-2),"
735 PRINT"            [212]EMPO (1-6),"
740 PRINT"            [199]RENZE/OBEN (0-255),"
745 PRINT"            [199]RENZE/UNTEN (0-255),"
750 PRINT"            [199]RENZE/LINKS (0-344),"
755 PRINT"            [199]RENZE/RECHTS (0-344)."
760 PRINT" [196]IE ALTEN [211]PRITE-[208]OKES SIND DABEI NACH"
765 PRINT" WIE VOR ZUR [198]ARBGEBUNG SOWIE ZUM [193]N-"
770 PRINT" UND [193]BSCHALTEN ETC. NOETIG, [202][207][217][211][208][210][201][212][197]"
775 PRINT" UEBERNIMMT LEDIGLICH DIE [211]TEUERUNG VON"
780 PRINT" [211]PRITE 0."
785 PRINT" [196]IE [199]RENZPARAMETER DIENEN DAZU, DEN"
790 PRINT" [194]ILDSCHIRMBEREICH, UEBER DEN [211]PRITE 0"
795 PRINT" BEWEGT WERDEN KANN, BELIEBIG ZU BE-"
800 PRINT" STIMMEN."
805 PRINT"              <[215]> = [215][197][201][212][197][210]";
810 GOSUB50:GOSUB30
815 PRINT" [154][193]BGESCHALTET WIRD [202][207][217][211][208][210][201][212][197] MIT"
820 PRINT" [211][217][211] 49290."
825 PRINT" [196]IE ALTE [201][210][209]-[210]OUTINE WIRD DANN WIEDER"
830 PRINT" INITIALISIERT."
835 PRINT" [215]URDE DER [198]EUERKNOPF GEDRUECKT, WIRD"
840 PRINT" DER [215]ERT 1 IN DIE UNBENUTZTE [211]PEICHER-"
845 PRINT" STELLE $02 GESCHRIEBEN. [196]IESE MUSS"
850 PRINT" NACH DER [193]USWERTUNG IM [194]ASIC-[208]ROGRAMM"
855 PRINT" ('[201][198] [208][197][197][203](2)=1 [212][200][197][206] [199][207][212][207]') 'PER [200]AND'"
860 PRINT" MIT '[208][207][203][197] 2,0' GELOESCHT WERDEN."
865 PRINT" [202][207][217][211][208][210][201][212][197] EROEFFNET DEM [194]ASIC-[208]RO-"
870 PRINT" GRAMMIERER EINE [198]UELLE VON NEUEN [205]OEG-"
875 PRINT" LICHKEITEN, SEINE [208]ROGRAMME ZU GESTAL-"
880 PRINT" TEN ([193]UCH DIESE [196]EMO WURDE IN REINEM"
885 PRINT" [194]ASIC GESCHRIEBEN!):"
890 PRINT"              <[215]> = [215][197][201][212][197][210]";
895 GOSUB50:GOSUB30
900 :
905 REM **** DEMO 1: MENUEAUSWAHL ****
910 :
915 PRINT"    [154]- [208]ROFESSIONELLE [205]ENUE-[193]USWAHL -"
920 PRINT"          [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
925 PRINT"          [221]                  [221][153][146][161]"
930 FORI=1TO8:PRINT"          [221] "M$(I)" [221][153][146][161]":NEXT
935 PRINT"          [221]                  [221][153][146][161]"
940 PRINT"          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][153][146][161]"
945 PRINT"           [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
950 PRINT"   [211]TEUERUNG UEBER [202]OYSTICK IN [208]ORT 2"
955 PRINT"              <[215]> = [215][197][201][212][197][210]";
960 :
965 SYS49152,2,1,124,184,128,240
970 POKE53248,170:POKE53249,125:GOSUB95
975 AA=0:S=12:GOSUB175
980 GETA$:IFA$="W"THEN1110
985 IFPEEK(2)=1THEN1020
990 Y=PEEK(53249)
995 A=INT((Y-122)/8+1)
1000 IFA=AATHEN980
1005 IFAA<>OTHENZ=AA+8:GOSUB75:PRINT""M$(AA)
1010 Z=A+8:GOSUB75:PRINT"[153]"M$(A):AA=A:GOTO980
1015 :
1020 GOSUB75:PRINT""M$(A):GOSUB105:SYS49290
1025 PRINT"    [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1030 PRINT"    [221]                    [221][146][161]"
1035 PRINT"    [154][221] [193]USGEWAEHLT WURDE: [221][146][161]"
1040 PRINT"    [154][221] ------------------ [221][146][161]"
1045 PRINT"    [154][221] "M$(A)"   [221][146][161]"
1050 PRINT"    [154][221]                    [221][146][161]"
1055 PRINT"    [154][221] [158][205][197][206][213][197][154]              [221][146][161]"
1060 PRINT"    [154][221]                    [221][146][161]"
1065 PRINT"    [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][161]"
1070 PRINT"     [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1075 POKE53248,100:POKE53249,166
1080 SYS49152,2,1,163,167,78,107
1085 GOSUB95:GOSUB175
1090 GETA$:IFA$="W"THEN1110
1095 IFPEEK(2)=1THENGOSUB105:SYS49290:GOTO915
1100 GOTO1090
1105 :
1110 GOSUB105:SYS49290:GOSUB30
1115 :
1120 REM **** DEMO 2: FARBMENUE ****
1125 :
1130 PRINT"   [154]- [203]OMFORTABLE [208]ROGRAMM-[194]EDIENUNG -[155]":GOSUB285
1135 PRINT"   [211]TEUERUNG UEBER [202]OYSTICK IN [208]ORT 2"
1140 PRINT"              <[215]> = [215][197][201][212][197][210][155]";
1145 SYS49152,2,2,126,202,83,266
1150 POKE36856,193:POKE53248,170:POKE53249,143:GOSUB95:A=0:AA=0:AF=0
1155 :
1160 GETA$:IFA$="W"THEN1325
1165 IFPEEK(2)=0THEN1160
1170 POKE2,0:X=PEEK(53248):Y=PEEK(53249)
1175 IFX<93THEN1160
1180 IFX>184THEN1205
1185 IFY>133ANDY<148THENA=1:GOTO1230
1190 IFY>157ANDY<172THENA=2:GOTO1230
1195 IFY>181ANDY<196THENA=3:GOTO1230
1200 GOTO1160
1205 IFX<205ORX>249ORA=0THEN1160
1210 IFY>141ANDY<156THENAF=1:GOTO1250
1215 IFY>165ANDY<180THENAF=2:GOTO1250
1220 GOTO1160
1225 :
1230 IFA=AATHEN1160
1235 IFAA<>0THENGOSUB75:PRINT""F$(AA)
1240 S=10:Z=8+A*3:GOSUB75:PRINTF$(A):AA=A:GOSUB175:GOTO1160
1245 :
1250 ONAGOTO1255,1260,1265
1255 F=PEEK(53281):GOTO1270
1260 F=PEEK(53280):GOTO1270
1265 F=PEEK(646)+240
1270 IFAF=2THEN1285
1275 F=F-1:IFF=239THENF=255
1280 GOTO1290
1285 F=F+1:IFF=256THENF=240
1290 ONAGOTO1295,1300,1305
1295 POKE53281,F:GOSUB175:GOTO1160
1300 POKE53280,F:GOSUB175:GOTO1160
1305 POKE646,F-240:PRINT"";:GOSUB285:GOSUB75:PRINTF$(A):GOSUB175:GOTO1160
1310 :
1315 REM **** DEMO 3: SPIEL ****
1320 :
1325 GOSUB105:SYS49290:GOSUB30:POKE53280,0:POKE53281,0
1330 PRINT"      [154]- [211]CHNELLE [211]PIEL-[211]TEUERUNG -"
1335 PRINT"   [152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][192][174]"
1340 PRINT"   [221][155]                    [152][221][221][158][176][192][192][192][192][192][192][192][192][174][152][221][151][146][161]"
1345 PRINT"   [152][221][155]     [205]AEUSEJAGD     [152][221][221][158][221] [205]AEUSE-[221][152][221][151][146][161]"
1350 PRINT"   [152][221][155]    ------------    [152][221][221][158][221]  JAGD  [221][152][221][151][146][161]"
1355 PRINT"   [152][221][155] [194]EI DIESEM [196]EMO-   [152][221][221][158][173][192][192][192][192][192][192][192][192][189][152][221][151][146][161]"
1360 PRINT"   [152][221][155] [211]PIEL MUSS MAN     [152][221][171][192][192][192][192][192][192][192][192][192][192][179][151][146][161]"
1365 PRINT"   [152][221][155] MIT SEINEM [206]ETZ SO [152][221][221][154]          [152][221][151][146][161]"
1370 PRINT"   [152][221][155] VIELE [211][195][200][215][193][210][218][197]     [152][221][221][154] [205]AEUSE:  [152][221][151][146][161]"
1375 PRINT"   [152][221][155] [205]AEUSE WIE MOEG-   [152][221][221][154] 0        [152][221][151][146][161]"
1380 PRINT"   [152][221][155] LICH FANGEN, DIE   [152][221][221][154]          [152][221][151][146][161]"
1385 PRINT"   [152][221][155] [210][207][212][197][206] DUERFEN      [152][221][171][192][192][192][192][192][192][192][192][192][192][179][151][146][161]"
1390 PRINT"   [152][221][155] NICHT BERUEHRT     [152][221][221][146][211]TEUERUNG [152][221][151][146][161]"
1395 PRINT"   [152][221][155] WERDEN!            [152][221][221][146]UEBER     [152][221][151][146][161]"
1400 PRINT"   [152][221][155]          [158][211][208][201][197][204][197][206][155]   [152][221][221][146][202]OYSTICK  [152][221][151][146][161]"
1405 PRINT"   [152][221][155]                    [152][221][221][146][208]ORT 2    [152][221][151][146][161]"
1410 PRINT"   [152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][192][189][151][146][161]"
1415 PRINT"   [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1420 PRINT"              <[215]> = [215][197][201][212][197][210]";
1425 POKE36856,192:POKE53248,166:POKE53249,208
1430 SYS49152,2,1,204,208,139,188
1435 GOSUB95:GOSUB175
1440 GETA$:IFA$="W"THEN1620
1445 IFPEEK(2)<>1THEN1440
1450 GOSUB105:SYS49290
1455 PRINT"   [152][176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]"
1460 PRINT"   [221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221]"
1465 PRINT"   [221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221]"
1470 FORI=1TO4
1475 PRINT"   [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]"
1480 PRINT"   [221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221]"
1485 PRINT"   [221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221][155]  [152][221]":NEXT
1490 PRINT"   [173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]"
1495 IFT=0THENT=1
1500 GOSUB380:M=0:S=27:Z=14:POKE36856,194
1505 POKE53278,0:POKE53248,56:POKE53249,202
1510 POKE53288,0:POKE53250,125:POKE53251,152
1515 GOSUB95:GOSUB115:FORI=0TO900:NEXT
1520 SYS49152,2,3,103,205,52,202
1525 :
1530 I=0:II=INT(RND(0)*7)+4
1535 GETA$:IFA$="W"THEN1615
1540 IFPEEK(53278)AND3<>0THEN1575
1545 I=I+1:IFI<IITHEN1540
1550 GOSUB125:X=53+INT(RND(0)*7)*24:Y=104+INT(RND(0)*5)*24
1555 POKE53250,X:POKE53251,Y
1560 F=INT(RND(0)*2):IFF=1THENF=2
1565 POKE53288,F:GOSUB115:GOTO1530
1570 :
1575 SYS49290:IFPEEK(53288)=242THEN1600
1580 GOSUB400:M=M+1:GOSUB75:PRINT""MID$(STR$(M),2,LEN(STR$(M)))
1585 GOSUB105:GOSUB125
1590 IFM=99999999THEN1605
1595 GOTO1505
1600 POKE53280,2:GOSUB420:POKE53280,0
1605 GOSUB105:GOSUB125:GOTO1330
1610 :
1615 GOSUB125
1620 GOSUB105:SYS49290
1625 IFT=1THENT=0:GOSUB365
1630 GOSUB30
1635 PRINT" [154][196]AS WAR NATUERLICH NUR EINE KLEINE"
1640 PRINT" [193]USWAHL DER NEUEN [205]OEGLICHKEITEN MIT"
1645 PRINT" [202][207][217][211][208][210][201][212][197]."
1650 PRINT" [215]AS WIRKLICH ALLES IN DIESER [210]OUTINE"
1655 PRINT" STECKT, WIRD WAHRSCHEINLICH JEDER"
1660 PRINT" SELBST ENTDECKEN, WENN ER [202][207][217][211][208][210][201][212][197]"
1665 PRINT" IN SEINEN [194]ASIC-[208]ROGRAMMEN VERWENDET."
1670 PRINT" [214][201][197][204] [211][208][193][211][211] [196][193][194][197][201] !"
1675 PRINT"          [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1680 PRINT"          [221][154][195]ARSTEN [205]ANSHUSEN[221]"
1685 PRINT"          [221][154][215]ESERSTR. 54     [221]"
1690 PRINT"          [221][154]2850 [194]REMERHAVEN [221]"
1695 PRINT"          [221][154][212]EL.: 0471/71547 [221]"
1700 PRINT"          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1705 PRINT"     <[206]> = [206][207][195][200] [197][201][206][205][193][204]  <[197]> = [197][206][196][197]";
1710 GETA$:IFA$=""THEN1710
1715 IFA$="N"THENL=1:GOSUB145:GOTO485
1720 IFA$<>"E"THEN1710
1725 GOSUB145:SYS64738